﻿Imports DARSWebservice
Imports DBUtilitiesLibrary


Public Class Student
    Inherits User

    'Author: Matt Salp (Modified by Jawad Najim (I added User Class and used Inheritance)

    'This class will model the student. Contains all propeties that are included in the data model 
    'and the associated get and set methods/properties

    'class variables

    Private std_ID As String
    Private stdtype_TypeID As String


    Public Sub New()
        std_ID = ""
        stdtype_TypeID = ""
    End Sub

    'Create a student from a user object
    Public Sub New(ByVal ID As String, ByVal studentTypeId As String, ByVal baseUsr As User)
        Me.UserID = baseUsr.UserID
        Me.FirstName = baseUsr.FirstName
        Me.LastName = baseUsr.LastName
        Me.Email = baseUsr.Email
        Me.StreetAddress = baseUsr.StreetAddress
        Me.City = baseUsr.City
        Me.State = baseUsr.StreetAddress
        Me.ZipCode = baseUsr.ZipCode
        Me.TypeID = baseUsr.TypeID
        std_ID = ID
        stdtype_TypeID = studentTypeId
    End Sub

    Public Property studentID() As String
        Set(ByVal value As String)
            std_ID = value
        End Set
        Get
            Return std_ID
        End Get
    End Property
    
    Public Property StudentTypeId() As String
        Set(ByVal value As String)
            stdtype_TypeID = value
        End Set
        Get
            Return stdtype_TypeID
        End Get
    End Property

End Class